100 REM 32 SPRITES DEMO
110 REM
120 PRINT"[147]":POKE53281,0:POKE53280,0
125 IFA=0THEN A=1:LOAD"32 DEMO.ML",8,1
127 IFA=1THEN A=2:LOAD"32",8,1
130 REM INITIALIZE 32 SPRITE REGISTERS
135 DIM C(10)
140 Y=52992:X=53024:HX=53056:C=53120
150 P=53216:PR=53275
160 FORJ=0TO31:POKEY+J,0:POKEX+J,0:POKEHX+J,0:POKEC+J,0:POKEP+J,14:NEXT
170 FORJ=0TO63:POKE704+J,0:POKE832+J,0:POKE896+J,0:NEXT
180 FORJ=3TO59:POKE832+J,255:NEXT
190 POKEPR,255:SYS 50080:SYS 49152:POKE53269,255
200 DT$=""
210 PRINTLEFT$(DT$,8);TAB(15)"[159]32 [211][208][210][201][212][197][211]"
220 PRINTTAB(9)"[154][195]USTOM 32-[211]PRITE [210]ASTER"
230 PRINTTAB(15)"[195]ONTROLLER"
240 PRINT:PRINTTAB(9)"[217]OU CAN DISPLAY UP TO 32"
250 PRINTTAB(6)"SPRITES ON THE SCREEN AT ANY"
260 PRINTTAB(7)"TIME. [197]ACH SPRITE CAN MOVE"
270 PRINTTAB(9)"ANYWHERE ON THE SCREEN."
280 FORCL=1TO10:READC(CL):NEXT:DATA 8,2,9,10,7,1,7,10,9,2
290 FORJ=31TO0STEP-1:POKEP+J,13:FORCL=1TO10:POKEC+J,C(CL):NEXT:NEXT
300 GOSUB 1010
310 GOSUB 1000
320 PRINTLEFT$(DT$,12);TAB(7)"[217]OU HAVE FULL CONTROL OVER"
330 PRINTTAB(7)"EVERY SPRITE OPTION EXCEPT"
340 PRINTTAB(13)"[217]-EXPANSION."
350 FORJ=0TO31:POKEC+J,INT(RND(1)*15)+1:NEXT:GOSUB1020
360 FORJ=0TO31:POKEC+J,2:NEXT:GOSUB1020
370 FORJ=0TO63:POKE832+J,0:NEXT
375 FORJ=0TO31:A=INT(RND(1)*3)+1:IFA=1THENPP=13
377 IFA=2THENPP=14
378 IFA=3THENPP=11
379 POKEP+J,PP:NEXT:CC=85
380 FORJ=3TO59:POKE704+J,INT(RND(1)*256):POKE896+J,CC:CC=255-CC:POKE832+J,255
385 NEXT
390 POKE53285,7:POKE53286,10
400 GOSUB1020:POKE53276,255:GOSUB1020:GOSUB1020:POKE53276,0:GOSUB1020
410 FORJ=0TO31:POKEP+J,13:NEXT
420 GOSUB1020:POKE53277,255:GOSUB1020:POKE53277,0
440 PRINTLEFT$(DT$,12);TAB(5)"[205]OVE SPRITE #1  WITH JOYSTICK"
450 PRINTTAB(2)"IN PORT 2.  [208]RESS + AND - TO CHANGE"
460 PRINTTAB(3)"SPRITE NUMBER.  [208]RESS [195] TO CHANGE"
470 PRINTTAB(8)"COLOR. [208]RESS [209] TO QUIT."
480 SYS 50272:POKE254,0:SP=1
490 POKE254,SP-1:PRINTLEFT$(DT$,12);TAB(18);MID$(STR$(SP),2);" "
500 GETA$:IFA$="+"ANDSP<32THENSP=SP+1:GOTO 490
510 IFA$="-"ANDSP>1THENSP=SP-1:GOTO 490
520 IFA$="C"THENPOKEC+SP-1,(PEEK(C+SP-1)+1)AND15
530 IFA$<>"Q"THEN500
540 POKE828,0:SYS 828
999 END
1000 FORJ=11TO24:POKE781,J:SYS 59903:NEXT:RETURN
1010 FORJ=1TO1000:NEXT:RETURN
1020 FORJ=1TO500:NEXT:RETURN